home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / TORPET.d64 / cursor control (.txt) < prev    next >
Commodore BASIC  |  2009-10-12  |  677b  |  15 lines
  1. 10000 C$="":FOR A=1 TO A:A=0:POKE 204,0
  2. 10010 REM CLEAR VARIABLE; START INFINITE LOOP; MAKE SURE CURSOR STAYS ENABLED
  3. 10020 GETA$:IF A$="" THEN NEXT A
  4. 10030 REM GET A CHARACTER
  5. 10040 IFA$=""OR A$="[145]"OR A$="[157]"OR A$=""OR A$="[148]"OR A$="[147]"OR A$=""THEN NEXT A
  6. 10050 REM WEED OUT ALL CURSOR CONTROL KEYS PLUS THE INSERT KEY
  7. 10060 IF A$=CHR$(20) AND C$<>"" THEN C$=LEFT$(C$,LEN(C$)-1):PRINT A$;
  8. 10070 IF A$=CHR$(20) THEN NEXT A
  9. 10080 REM DELETE CHARACTER FROM STRING (IF STRING IS NOT NULL)
  10. 10090 IF A$=CHR$(13) THEN A=1:WAIT 207,1,1:PRINT:A$=""
  11. 10100 REM IF RETURN THEN END LOOP AND WAIT TILL CHARACTER NOT BLINKING
  12. 10110 C$=C$+A$:POKE 207,0:PRINT A$;:NEXT A:POKE 204,1:RETURN
  13. 10120 REM BUILD STRING VARIABLE; FORCE CHARACTER TO BLINK; PRINT CHARACTER
  14. 10130 REM WHEN LOOP IS FINISHED TURN OFF CURSOR, RETURN
  15.